home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / 1463.ZIP / DRAW-2D.ARC / LEV2OPT.PAS < prev    next >
Pascal/Delphi Source File  |  1986-11-25  |  1KB  |  56 lines
  1. PROCEDURE LEV2OPT;
  2.    VAR
  3.      KODE:INTEGER;
  4.    BEGIN
  5.      CASE OPTION OF
  6.    0: IF OBJPTR <= MAXSIZE THEN DRAWOBJ ELSE RING2;
  7.    1: BEGIN   (* POINT *)
  8.         IF (BUTTON1) OR (BUTTON2) THEN
  9.           BEGIN
  10.             OTYP := 1;
  11.             STATUS2;
  12.           END;
  13.       END;
  14.    2: BEGIN   (* LINE *)
  15.         IF (BUTTON1) OR (BUTTON2) THEN
  16.           BEGIN
  17.             OTYP := 2;
  18.             STATUS2;
  19.           END;
  20.       END;
  21.    3: BEGIN   (* VERT.-LINE *)
  22.         IF (BUTTON1) OR (BUTTON2) THEN
  23.           BEGIN
  24.             OTYP := 5;
  25.             STATUS2;
  26.           END;
  27.       END;
  28.    4: BEGIN   (* HORIZ.-LINE *)
  29.         IF (BUTTON1) OR (BUTTON2) THEN
  30.           BEGIN
  31.             OTYP := 6;
  32.             STATUS2;
  33.           END;
  34.       END;
  35.    5: BEGIN   (* BOX *)
  36.         IF (BUTTON1) OR (BUTTON2) THEN
  37.           BEGIN
  38.             OTYP := 3;
  39.             STATUS2;
  40.           END;
  41.       END;
  42.    6: BEGIN   (* CIRCLE *)
  43.         IF (BUTTON1) OR (BUTTON2) THEN
  44.           BEGIN
  45.             OTYP := 4;
  46.             STATUS2;
  47.           END;
  48.      END;
  49.    7: BEGIN    END;
  50.    8: IF (BUTTON1) OR (BUTTON2) THEN
  51.          BEGIN
  52.            LEV := 1;
  53.            MENU(LEV);
  54.          END;
  55.      END; (*CASE*)
  56.    END;